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Jumping Into Smalltalk 


I hear from many Java and C# programmers that they can't read Smalltalk 
code. Smalltalk is actually very easy to learn since it has very little syntax. 
The true power of Smalltalk lies in the environment and the class libraries. 


This article is intended to give Java and C# programmers an extremely 


rapid plunge into Smalltalk. I'll do that by using side-by-side code 
comparisons. 


Temporary Variables 


Smalltalk doesn't require type declarations on any variables. Temporary 
variables are defined within vertical bars. 


Smalltalk 


int a; 
char b; label] 
float c; 


Assignment 


Smalltalk uses := for assignment. 


Smalltalk 


Messages 


Smalltalk has three kinds of messages. 


Type ¡Form Parameters Examples 
alphanumeric starting with a lowercase 
unary — etter squared 
[o qp p p ^ ^ ^ ^ ^o6 
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[binary |punctuation marks [1 [+ 
do: 


multiple colon terminated alphanumeric 
words 


1 or more 


To pass one or more parameters, you would usually use a keyword 
message. Each parameter is preceded by a keyword. Smalltalk doesn't use 
brackets and commas to separate the parameters. 


Examples 


Java Smalltalk 
myAccount.getBalance(); myAccount getBalance 


myAccount.setBalance (10); myAccount setBalance: 10 
myAccount.transfer (20, anotherAccount) myAccount transfer: 20 to: anotherAccount 
myAccount.equals (anotherAccount); myAccount = anotherAccount 


Order of operations is: 


Unary (evaluate first) 
Binary (evaluate second) 
Keyword (evaluate last) 


Within each priority level, evaluate left to right. 


Smalltalk 


t5*6 //answer: 33 3+5*6 "answer: 48" 


Notice that in the Smalltalk version, this expression is actually two 
messages: 


Message | 
receiver: 3 
message: + 
parameter: 5 
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result: 8 


Message 2 
receiver: 8 
message: * 
parameter: 6 


result: 48 
Statements 


Smalltalk uses a period (.) as a statement separator. You don't need a 
period on the last statement. 


ava Smalltalk 


| 


myAccount.deposit(20); myAccount deposit: 20. 
myAccount.transfer(20, anotherAccount); myAccount transfer: 20 to: anotherAccount 
Literals 


In Smalltalk, integers, characters, strings, booleans, floats and doubles are 
all first class objects. Integers are infinite precision and automatically 
grow as needed without overflow. As such, there's no equivalent to char, 
byte, short, int, or long. They're all just integers. 


sa 77 
'h' | 
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\u03A9"' Character value: 16r3A9 


Special Words 


In Smalltalk, nil refers to a real object. It's an instance of the class 
UndefinedObject. The word true refers to an instance of the class True and 
false refers to an instance of the class False. 


Smalltalk 
| 


Cascades 


Smalltalk uses a semicolon (;) to separate multiple messages sent to the 
same object. 


Smalltalk 


myAccount 


<no equivalent> deposit: 20; 
transfer: 20 to: anotherAccount 
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Comments 


ava Smalltalk 


/* comment */ " a 
comment 
// another comment 


Instance Creation 


In Smalltalk, classes are real objects. To create an instance, just send new 
to the class. Methods for a class are called class methods (similar to Java 
static methods). 


Smalltalk 


new Reservation(); Reservation new 


Constructors 


Smalltalk has no constructors. If you want to perform instance 
initialization, you can redefine the "new" class method to initialize the 
instance. 


Smalltalk 


. Reservation class method: 
Reservation() s 
{ 


A mS 
s super new initialize 
startTime = p 


new GregorianCalendar().getTime(); 
endTime = 
new GregorianCalendar().getTime(); 


Reservation instance method: 
initialize 
startTime := Timestamp now. 
endTime := Timestamp now 


j 


Methods 


Smalltalk 
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class Room { bookFrom: startTime to: endTime 
reservations add: 
void book (DateTime start, DateTime end) (Reservation from: startTime to: endTime) 
{ 


reservations.add ( 
new Reservation(start, end)); 


j 


Blocks 


Smalltalk has an object called a block. It's an object that contains 
executable code. The closest thing Java has is an anonymous inner class. 
In C£ 2.0, there are anonymous delegates that are similar. 


To execute a block with no parameters, you send it a value message. 


Smalltalk 
| block | 


block := [3 + 4]. 
block value "answer is 7" 


Blocks can have parameters. Each block parameter declaration starts with 
a colon (:). A vertical bar (|) denotes the end of the parameter list and the 
start of the code for the block. 


malltalk 
| block | 


block := [:x :y | x * 2 + y]. 
block value: 5 value: 3 "answer is 13" 


End of the Syntax 


At this point, we've covered all of the syntax of Smalltalk. Everything 
else is part of the class library. Have you noticed anything missing? How 
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about if-then-else or while loops? Smalltalk just uses blocks and ordinary 
message sends. 


Control Structures 


Smalltalk has no control structures like if built into the language. Instead, 
Smalltalk uses messages sent to the true or false objects. 


Smalltalk 


if (tries > 5) 


tries > 5 
ifTrue: [^'Too many tries'] 
ifFalse: [^'Trying again'] 


return "Too many tries"; 
else 
return "Trying again"; 


Notice that the ^ returns from the method, not just the block. 
Loops 


Smalltalk uses blocks to do looping. Since blocks are just objects, we can 
send messages to them. 


Smalltalk 


| tries | 

tries := 0. 

[tries <= 5] whileTrue: [ 
self tryAgain. 
tries := tries + 1] 


int tries = 0; 
while (tries <= 5) { 
tryAgain(); 
jest; 
~ ; alternatively: 


5 timesRepeat: [self tryA gain] 


Notice that timesRepeat: is a message understood by Integers. It simply 
evaluates the block the proper number of times. 


Things left to learn 
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This concludes this quick introduction to Smalltalk. There are still many 
things to learn but there is no more syntax. Everything else 1s part of the 
class library. 


If you'd like to learn more, download Smalltalk try it out. Wilf Lalonde 
has a good article on learning Smalltalk for Java and C++ programmers. 
For lots of Smalltalk resources including links to online Smalltalk books, 
visit the Why Smalltalk site. If you'd be interested in formal training 
contact Simberon and ask about Smalltalk training 


Copyright © 2013, Simberon Inc. All rights reserved. 
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WKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK kk kk kk kk 


* Allowable characters: 

a - a-z 

- A-Z 

- 0-9 

=- .t/\*~<>@S|&? 

- blank, tab, cr, ff, lf 


Variables: 
- variables must be declared before use 
- shared vars must begin with uppercase 
- local vars must begin with lowercase 
- reserved names: nil, true, false, self, super, and Smalltalk 


Variable scope: 

- Global: defined in Dictionary Smalltalk and accessible by all 
objects in system 
- Special: (reserved) Smalltalk, super, self, true, false, & nil 
- Method Temporary: local to a method 
- Block Temporary: local to a block 
- Pool: variables in a Dictionary object 
- Method Parameters: automatic local vars created as a result of 
message call with params 
- Block Parameters: automatic local vars created as a result of 
value: message call 
- Class: shared with all instances of one class & its subclasses 
- Class Instance: unique to each instance of a class 


k - Instance Variables: unique to each instance 
ck ke kk ck kk kk Sk ck kk kk ck kk ke ke kk ck kk ke kk kk kk kk kk ck kk ck kk ck cock kc ck ck kk ko Sk ko Sk ko k ko ko 


+ X 0X 0X F F FF F F FF F F FF F F FF F X X X 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


"Comments are enclosed in quotes" 
"Period (.) is the statement seperator" 


WKKKKKKKKKKKKKK S Sk Sk Sk kk KKK KKK KKK KKK KKK KKK KKK kx kk kk kk kk kk kk kk kk kk kk kk kk kk kk kx 


* Transcript: ad 
Ck ck ck kk kk kk kk kk kk kk kk kk kk kk kk kk kk Sk kk Sk kk kk Sk kk Sk kk Sk kk kk kk ke kk RARA RAR ko ko kk KU 


n 


[Transcript clear. "clear to transcript window" 


Transcript show: 'Hello World'. "output string in transcript window" 
Transcript nextPutAll: 'Hello World'. "output string in transcript window" 
Transcript nextPut: $A. "output character in transcript window" 
Transcript space. "output space character in transcript window" 
Transcript tab. "output tab character in transcript window" 


m 


"Carriage return / linefeed" 

"append print string into the window" 
"append store string into the window" 
"flush the output buffer" 


[ranscript cr. 

'Hello' printOn: Transcript. 
'Hello' storeOn: Transcript. 
Transcript endEntry. 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


MD MD Ou KKK KKK KK KK 


* Assignment: $ 
ck Sk ck kk kk kk kk kk kk kk ck kk kk ck kk kk kk ck kk Sk ck kk kk ck kk kk ck ck kk ck ck ck koc kk kk kk ko Sk kv ko ko ko ko k ko k M 
xyl 
_ 4. "assignment (Squeak) «-" 
: 5. "assignment" 
= y i= Z i= 6. "compound assignment" 
:= (y := 6) + 1. 
:= Object new. "bind to allocated instance of a class" 
= 123 class. "discover the object class" 


Integer superclass. 
Object allInstances. 
Integer allSuperclasses. 
1.2 hash. 


"discover the superclass of a class" 

"get an array of all instances of a class" 
"get all superclasses of a class" 

"hash value for object" 


:= X COpy. "copy object" 

:= x shallowCopy. "copy object (not overridden)" 

:= x deepCopy. "copy object and instance vars" 

:= x veryDeepCopy. "complete tree copy using a dictionary" 


WKKKKKKKKKKKKKK kx kk KK KK KK KK KK KR KARA kk kk kk kk KKK KKK KKK KKK KKK kk kk kx kx kx kx kx kx kx kx kx kx kx kx 


https://www.angelfire.com/tx4/cus/notes/smalltalk.html 


* Constants: 
EKXAKKAKKKKKKKAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKKKKKKKKKKKKKKKKAKkkkkkkk0" 


* 


| b 

b := true. "true constant" 

b := false. "false constant" 

x := nil. "nil object constant" 
x := 1. "integer constants" 

x := 3.14 "float constants" 

x t= 2e-2. "fractional constants" 
x := 16r0F. "hex constant". 

x := -1. "negative constants" 
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'Hello'. 

'I''m here'. 
$A. 

Ses 

taSymbol. 

$13 2 ci 
#('abc' 2 $a). 


XX XX MK ox 
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"string constant" 

"single quote escape" 
"character constant" 
"character constant (space)" 
"symbol constants" 

"array constants" 

"mixing of types allowed" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Booleans: 


* 


Ck Ck kk kk II I I III ISI IIS SII Sk kk SI Ik kk kk S kk kk S kk kk kk x KU 


bxyl 

= 1. y := 2. 

= (xX = y). 

= (x v y). 

=) qt yy 

=e Mus 
(se c0 yy. 

= (x < y). 
(x >= y). 

= (x <= y). 
b not. 

= (x < 5) € (y > 1). 
(x <5) | (y > 1). 

= (x < 5) and: [y > 1]. 
(Gc x DN ors. Lyc lq 

= (x < 5) equ: (y > 1). 
(e «:5) xor: (y 2 1). 


= 123 isKindOf: Number. 
= 123 isMemberOf: SmallInteger. 
= 123 respondsTo: sqrt. 
= x isNil. 
isZero. 
positive. 
strictlyPositive. 
negative. 
even. 
odd. 
isLiteral. 
isInteger. 
isFloat. 
= x isNumber. 

SA isUppercase. 
= SA isLowercase. 


xx MM MM MM OM 


OOOO: © DE o ME D NE o EE 070" 00-0: OOOO QOO 10? OO. (OOF OF 36 OOO 0:.00: iS 


:2 5 between: 3 and: 12. 


"equals" 

"not equals" 

"identical" 

"not identical" 

"greater than" 

"less than" 

"greater than or equal" 

"less than or equal" 

"boolean not" 

"boolean and" 

"boolean or" 

"boolean and (short-circuit)" 
"boolean or (short-circuit)" 

"test if both true or both false" 
"test if one true and other false" 
"between (inclusive)" 

"test if object is class or subclass of" 
"test if object is type of class" 
"test if object responds to message" 
"test if object is nil" 

"test if number is zero" 

"test if number is positive" 

"test if number is greater than zero" 
"test if number is negative" 

"test if number is even" 

"test if number is odd" 

"test if literal constant" 

"test if object is integer" 

"test if object is float" 

"test if object is number" 

"test if upper case character" 
"test if lower case character" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Arithmetic expressions: 


* 


Ck Ck Ck kk kk kk S I II I I III I I I I Ik S I I I kk kk kk kk kk kk kk RARA kk kk kk KU 


Il 
O1010101HT! OO oO 
+ 
Ww 


Ww 
Co CO * 
3. PRA 
oo. 


a NN WN WW Y 
e Sit . 


= 5 sign. 
= 5 negated. 
1.2 integerPart. 
= 1.2 fractionPart. 
= 5 reciprocal. 
= 6 * 3.1. 
= 5 squared. 
= 25 sqrt. 
= 5 raisedTo: 2. 
= 5 raisedToInteger: 2. 
= 5 exp. 
= -5 abs. 
= 3.99 rounded. 
= 3.99 truncated. 
= 3.99 roundTo: 1l. 
= 3.99 truncateTo: 1. 
= 3.99 floor. 
= 3.99 ceiling. 
= 5 factorial. 


nol, 


XX OX XX XXX XXX 0X 0X 0X 0X XXX XX XX XX XXX XXX X — 


= -5 quo: 3. 
= -5 rem: 3. 
= 28 gcd: 12. 
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"addition" 

"subtraction" 

"multiplication" 

"evaluation always left to right (1 + 2) 
"division with fractional result" 
"division with float result" 
"integer divide" 

"integer remainder" 

"unary minus" 

"numeric sign (1, -1 or 0)" 

"negate receiver" 

"integer part of number (1.0)" 
"fractional part of number (0.2)" 
"reciprocal function" 

"auto convert to float" 

"square function" 

"Square root" 

"power function" 

"power function with integer" 
"exponential" 

"absolute value" 

"round" 

"truncate" 

"round to specified decimal places" 
"truncate to specified decimal places" 
"truncate" 

"round up" 

"factorial" 

"integer divide rounded toward zero" 
"integer remainder rounded toward zero" 
"greatest common denominator" 


* 


3" 
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x := 28 lom: 12. "least common multiple" 
x := 100 1n. "natural logarithm" 
x := 100 log. "base 10 logarithm" 
x := 100 log: 10. "logarithm with specified base" 
x := 100 floorLog: 10. "floor of the log" 
x := 180 degreesToRadians. "convert degrees to radians" 
x := 3.14 radiansToDegrees. "convert radians to degrees" 
x := 0.7 sin. "sine" 
x := 0.7 cos. "cosine" 
x := 0.7 tan. "tangent" 
x := 0.7 arcSin. "arcsine" 
x := 0.7 arcCos. "arccosine" 
x := 0.7 arcTan. "arctangent" 
x := 10 max: 20. "get maximum of two numbers" 
x := 10 min: 20. "get minimum of two numbers" 
x := Float pi. "pit 
x := Float e. "exp constant" 
x := Float infinity. "infinity" 
x := Float nan. "not-a-number" 
x := Random new next; yourself. x next. "random number stream (0.0 to 1.0) 
x := 100 atRandom. "quick random number" 
WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
* Bitwise Manipulation: E 
Ck CK Ck kk kk kk Sk I II I RAR RRA RARA RAR RRA RAR RARA RAR RR RRA RARA RARA ARA AAA 
| bx | 
x := 16rFF bitAnd: 16r0F. "and bits" 
x :— 16rF0 bitOr: 16r0F. "or bits” 
x := 16rFF bitXor: 16r0F. "xor bits" 
x := 16rFF bitInvert. "invert bits" 
x := 16r0F bitShift: 4. "left shift" 
x := 16rF0 bitShift: -4. "right shift" 
"x := 16r80 bitAt: 7." "bit at position (0|1) [!Squeak]" 
x := 16r80 highbit. "position of highest bit set" 
b := 16rFF allMask: 16r0F. "test if all bits set in mask set in receiver" 
b := 16rFF anyMask: 16r0F. "test if any bits set in mask set in receiver" 
b := 16rFF noMask: 16r0F. "test if all bits set in mask clear in receiver" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Conversion: 


* 


Ck Ck Ck kk kk kk kk I I I II I I I I Sk kk I I I kk kk S kk kk S kk kk kk kk KU 


| 

3.99 asInteger. 
3.99 asFraction. 

3 asFloat. 

65 asCharacter. 

$A asciiValue. 

= 3.99 printString. 
3.99 storeString. 
15 radix: 16. 

15 printStringBase: 
15 storeStringBase: 


16. 
16. 


xx MMM MM MM KM 


PPP" 


"convert 
"convert 
"convert 
"convert 
"convert 
"convert 
"convert 
"convert 


number to integer (truncates in Squeak)" 
number to fraction" 

number to float" 

integer to character" 

character to integer" 

object to string via printOn:" 

object to string via storeOn:" 

to string in given base" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Blocks: 


blocks may be nested 
specification [ arguments | | 


max of three arguments allowed 
“expression terminates block & 


x yz | 
y z reu. Ts 
:argOne :argTwo | 
Transcript show: (x value: 
x L-dA^z Zz TJ. 


x value. 
argOne, ' 
"Eirst' 


" .= = 


blocks are objects and may be assigned to a variable 
value is last expression evaluated unless explicit return 


localvars | 


Squeak does not currently support localvars in blocks 


blocks intended for long term storage should not contain ” 
ck ck ke ck ke ck kk kk ck Sk ck kk kk ck KK KKK KKK KKK KK KK KK KK KK KK KK KK KK KA KKK KK KA KA KA ko KA ko ko ko k ko" 


and ' 
value: 


expressions 


] 


+ A A A A A HF X 


method (exits all nested blocks) 


* 


"simple block usage" 

"set up block with argument passing" 

"use block with argument passing" 
localvars not available in squeak blocks" 


, argTwo.]. 
'Second'); cr. 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Method calls: * 
* - unary methods are messages with no arguments * 
* - binary methods 2d 
x - keyword methods are messages with selectors including colons * 
* * 
* standard categories/protocols: * 
k - initialize-release (methods called for new instance) * 
* - accessing (get/set methods) i 
A - testing (boolean tests - is) x 
i - comparing (boolean tests with parameter a 
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- displaying 

- printing 

- updating 

- private 

- instance-creation 
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(gui related methods) 

(methods for printing) 

(receive notification of changes) 
(methods private to class) 

(class methods for creating instance) 


AAA x 


* 


* 
* 
* 
* 
* 
* 


2 sqrt. 
2 raisedTo: 
:= 194 * 9. 
Transcript show: 


| 
x 
x d. 
x 


(194 * 9) 


x := 2 perform: #sqrt. 
Transcript 
Show: 'hello '; 
Show: 'world'; 
GP 
x T= 34 27 * 100. 


printString; 


cr. 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAKAY 


"unary message" 

"keyword message" 
"binary message" 
"combination (chaining)" 


"indirect method invocation" 
"Cascading - send multiple messages to receiver" 


"result=300. 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Conditional Statements: 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAY 


| x | 
x > 10 ifTrue: 
x > 10 ifFalse: 
x > 10 
ifTrue: 
ifFalse: 
x > 10 
ifFalse: 
ifTrue: 
Transcript 
show: 
(x > 10 
ifTrue: 
ifFalse: 


[Transcript show: 
[Transcript show: 


Transcript show: 
[Transcript show: 


[Transcript show: 
Transcript show: 


['ifTrue'] 
['ifFalse']); 
cr. 
Transcript 
show: 
(x » 10 
ifTrue: [x » 5 
ifTrue: ['A'] 
ifFalse: ['B' 
ifFalse: ['C']) 


1] 


1); 
cr. 

Switch :- Dictionary new. 

switch at: SA put: 

switch at: $B put: 

switch at: $C put: 

result := (switch at: 


SB) value. 


'ifTrue'; 
'ifFalse'; 


'ifFalse'; 
'ifTrue'; 


[Transcript show: 
[Transcript show: 
[Transcript show: 


'ifTrue'; 
'ifFalse'; 


cr] 
ers 


cr] 
gue 


'Case A' 


'Case B'; 
'Case C'; 


ex]. 


ens 


7 


7 


ce 
er]. 
ees 


"if 
"if 
"if 


then" 
else" 
then else" 


"if else then" 


"nested if then else" 


"switch functionality" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Iteration statements: 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKKAY 


| xy | 
x :— 4. y := 1. 

[x > 0] whileTrue: [x 
[x >= 4] whileFalse: 

x timesRepeat: [y := 
i “Eo: x dez "ray 

Ll. to: x by: [ 
#(5 4 3) do: 


"while true loop" 

"while false loop" 
"times repear loop (i := 
"for loop" 


Sends message to same receiver 


(3)" 


"for loop with specified increment" 
"iterate over array elements" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Character: 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAY 
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| xy | 

x r= $A. "character assignment" 

y := x isLowercase. "test if lower case" 

y := x isUppercase. "test if upper case" 

y := x isLetter. "test if letter" 

y := x isDigit. "test if digit" 

y := x isAlphaNumeric. "test if alphanumeric" 

y := x isSeparator. "test if seperator char" 
y := x isVowel. "test if vowel" 

y := x digitValue. "convert to numeric digit 
y := x asLowercase. "convert to lower case" 

y := X asUppercase. "convert to upper case" 

y := x asciiValue. "convert to numeric ascii 
y := x asString. "convert to string" 

b := SA <= SB. "comparison" 

y := SA max: SB. 


value" 


value" 
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WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Symbol: 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAKAY 


bxy | 

#Hello. 

'String', 'Concatenation'. 

x isEmpty. 

size. 

at 2. 

copyFrom: 2 to: 4. 
indexOf: Se ifAbsent: [0]. 


uo dw gg gw dg dg g 
Xx XxX oo 


Io 


select: [:a | a > Sa]. 
asString. 

asText. 

asArray. 
asOrderedCollection. 
asSortedCollection. 
asBag. 

asSet. 


KEKKKKKKOXKKKKOK Xx — 


D" oo se we oe oe 


xx MM MM MM ox 


* 


+ 


String: 


[:a | Transcript show: a printString; 
conform: [:a | (a >= $a) & (a <= $z)]. 


Gana 


"symbol assignment" 

"symbol concatenation (result is string)" 
"test if symbol is empty" 

"string size" 

"char at location" 

"substring" 

"first position of character within string" 
"iterate over the string" 

"test if all elements meet condition" 
"return all elements that meet condition" 
"convert symbol to string" 

"convert symbol to text" 

"convert symbol to array" 

"convert symbol to ordered collection" 
"convert symbol to sorted collection" 
"convert symbol to bag collection" 
"convert symbol to set collection" 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAY 


bxy | 

= "This is a string’. 

= 'String', 'Concatenation'. 

= x isEmpty. 

x size. 

X abi oZ. 

= x copyFrom: 2 to: 4. 
x indexOf: $a ifAbsent: [0]. 
String new: 4. 


XOXCS 4440 X X — 


at: 1 put: $a; 
at: 2 put: $b; 
at: 3 put: $c; 
at: 4 put: $e. 
:= String with: $a with: $b with: 


:= x select: [:a | a > Sa]. 
:= x asSymbol. 

:= X asArray. 

:= 'ABCD' asByteArray. 

:= x asOrderedCollection. 

: asSortedCollection. 

e asBag. 
: asSet. 
i shuffled. 


SKKKKXxXKKk Ox o 


Xx XxX oo 


Sc with: 


do: [:a | Transcript show: a printString; 
:= x conform: [:a | (a >= $a) € (a <= $z)]. 


$d. 
CE. 


"string assignment" 

"string concatenation" 

"test if string is empty" 

"string size" 

"char at location" 

"substring" 

"first position of character within string" 
"allocate string object" 

"set string elements" 


"set up to 4 elements at a time" 
"iterate over the string" 

"test if all elements meet condition" 
"return all elements that meet condition" 
"convert string to symbol" 

"convert string to array" 

"convert string to byte array" 
"convert string to ordered collection" 
"convert string to sorted collection" 
"convert string to bag collection" 
"convert string to set collection" 
"randomly shuffle string" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Array: Fixed length collection 
* ByteArray: Array limited to byte elements 
* WordArray: Array limited to word elements 


* 


* 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAY 


b x y sum max | 
:= #(4 3 2 1). 


= Array new: 4. 


XX Xx — 


L puts 
at: 2 puts 
3 put; 
at: 4 put: 
Empty. 
size. 
at: 4. 
includes: 3. 
copyFrom: 2 to: 4. 
indexOf: 3 ifAbsent: [0]. 
occurrencesOf: 3. 
ss Tia 


5 
4 
3 
2 


IA] 
x 
p- 
- 0 


select: [ 


| a > 3] ifNone: 


0KKKKOXKKkKk OKk Oo 


= Array with: 5 with: 4 with: 3 with: 2. 


Transcript show: a printString; 
conform: [:a | (a >= 1) £ (a <= 4)]. 


(1. 


a | sum := sum + a]. sum. 
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GEI 


"constant array" 

"create array with up to 4 elements" 
"allocate an array with specified size" 
"set array elements" 


"test if array is empty" 

"array Size" 

"get array element at index" 

"test if element is in array" 

"subarray" 

"first position of element within array" 
"number of times object in collection" 
"iterate over the array" 

"test if all elements meet condition" 

"return collection of elements that pass test" 
"return collection of elements that fail test" 
"transform each element for new collection" 
"find position of first element that passes test" 
"sum array elements" 


5/12 


3/23/22, 10:56 PM 


sum := 0. 1 to: (x size) do: [:a | sum := sum + (x at: 

sum := x inject: 0 into: [:a :c | a + c]. 

max := x inject: 0 into: [:a :c | (a > c) 
ifTrue: [a] 
ifFalse: [c]]. 

y := x shuffled. 

y := X asArray. 

"y := x asByteArray." 

y := x asWordArray. 

y := x asOrderedCollection. 

y := x asSortedCollection. 

y := X asBag. 

y :7 X asSet. 
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ay qs 


"sum array elements" 
"sum array elements" 
"find max element in array" 


"randomly shuffle collection" 
"convert to array" 

"note: this 
"convert to 
"convert to 
"convert to 
"convert to 
"convert to 


word array" 

ordered collection" 
sorted collection" 
bag collection" 

set collection" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* OrderedCollection: 


acts like an expandable array 


* 


Ck Ck Ck kk kk kk I I I I I I I I I I I III kk kk kk S kk Sk kk kk kk kk kk KU 


bx y sum max | 

:= OrderedCollection 
:= OrderedCollection 
a SY adas 2: adas 13 
addFirst: 5. 
removeFirst. 
addLast: 6. 
removeLast. 
addAll: #(7 8 9). 
removeAll: #(7 8 9). 
2 put: 3. 
remove: 
isEmpty. 
size. 
atti 2. 
first. 
last. 
includes: 5. 
copyFrom: 2 to: 3. 
indexOf: 3 ifAbsent: 
occurrencesOf: 3. 

[sa Transcript show: 
conform: [:a | (a >= 1) £ 
select: [ a > 2]. 


with: 4 with: 3 with: 
new. 


add: 4; 


Q 
Q 


xx XXX xo. 


yourself. 


w 
Iœ l 


xx MMMM MM MM 


5 ifAbsent: []. 


[0]. 


a printString; 
(a <= 4)]. 


ifNone: []. 
= sum + a]. 
t [sa | sum 
acre eme]. 
a:c | (a > c) 


ll 
lox x x xX xX 


sum. 


sum := 0. to: 
:= x inject: 
max := x inject: 
ifTrue: [a] 
ifFalse: [c]]. 
shuffled. 
asArray. 
asOrderedCollection. 
asSortedCollection. 
asBag. 
asSet. 


0 into: 


size) d 
[ 
D intos [ 


=x 


ll 
x xm ox xXx 


:= sum + 


2 with: 


ex]. 


LS 


(x at: 


ay Jie 


"create collection with up to 4 elements" 
"allocate collection" 

"add element to collection" 

"add element at beginning of collection" 
"remove first element in collection" 

"add element at end of collection" 

"remove last element in collection" 

"add multiple elements to collection" 

"remove multiple elements from collection" 
"set element at index" 

"remove element from collection" 

"test if empty" 

"number of elements" 

"retrieve element at index" 

"retrieve first element in collection" 
"retrieve last element in collection" 

"test if element is in collection" 
"subcollection" 

"first position of element within collection" 
"number of times object in collection" 
"iterate over the collection" 

"test if all elements meet condition" 

"return collection of elements that pass test" 
"return collection of elements that fail test" 
"transform each element for new collection" 
"find position 
"sum elements" 
"sum elements" 
"sum elements" 
"find max element in collection" 


"randomly shuffle collection" 
"convert to array" 

"convert to ordered collection" 
"convert to sorted collection" 
"convert to bag collection" 
"convert to set collection" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* SortedCollection: 


- determined by sorting criteria 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAY 


bx y sum max | 

:= SortedCollection with: 
:= SortedCollection new. 
= SortedCollection sortBlock: 
add: 3; add: 2; add: 1; add: 4; 
addFirst: 5. 
removeFirst. 
addLast: 6. 
removeLast. 

addAll: #(7 8 9). 
removeAll: #(7 8 9). 
remove: 5 ifAbsent: 
isEmpty. 

size. 

atr 2. 

first. 

lasts 

includes: 4. 
copyFrom: 2 to: 3. 
indexOf: 3 ifAbsent: 


4 with: 3 with: 


[see sae o 
yourself. 


EH; 


XX OX OX X X X X X Xx Xxx: 


[0]. 


SK OUxX X CX KM 0 X «X X4 XS KK KK Xx — 
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2 with: 


> ic]. 


1. 


like OrderedCollection except order of elements * 


* 


"create collection with up to 4 elements" 
"allocate collection" 

"set sort criteria" 

"add element to collection" 

"add element at beginning of collection" 
"remove first element in collection" 

"add element at end of collection" 

"remove last element in collection" 

"add multiple elements to collection" 
"remove multiple elements from collection" 
"remove element from collection" 

"test if empty" 

"number of elements" 

"retrieve element at index" 

"retrieve first element in collection" 
"retrieve last element in collection" 
"test if element is in collection" 
"subcollection" 

"first position of element within collection" 


instruction not available on Squeak" 


of first element that passes test" 


6/12 
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y := X occurrencesOf: 3. 

x do: [:a | Transcript show: a printString; cr]. 

b := x conform: [:a | (a >= 1) & (a <= 4)]. 

y := x select: [:a | a > 2]. 

y := x reject: [:a | a < 2]. 

y := x collect: [:a | a + a]. 

y := x detect: [:a | a > 3] ifNone: []. 

sum := 0. x do: [:a | sum := sum + a]. sum. 

sum := 0. 1 to: (x size) do: [:a | sum := sum + (x at: 

sum := x inject: 0 into: [:a :c | a + c]. 

max := x inject: 0 into: [:a :c | (a > c) 
ifTrue: [a] 
ifFalse: [c]]. 

y := X asArray. 

y := x asOrderedCollection. 

y := x asSortedCollection. 

y := X asBag. 

y := X asSet. 


56 PM 
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a)]. 


"number of 


times object in collection" 


"iterate over the collection" 

"test if all elements meet condition" 

"return collection of elements that pass test" 
"return collection of elements that fail test" 


"transform 


each element for new collection" 


"find position of first element that passes test" 
"sum elements" 

"sum elements" 

"sum elements" 

"find max element in collection" 


"convert to array" 

"convert to ordered collection" 
"convert to sorted collection" 
"convert to bag collection" 
"convert to set collection" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Bag: 
* 


particular order 


like OrderedCollection except elements are in no 


* 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAY 


| bx y sum max 


x := Bag with: 4 with: 3 with: 2 with: 1. 
X :- Bag new. 
x add: 4; add: 3; add: 1; add: 2; yourself. 


x add: 3 withOccurrences: 2. 

y := x addAll: (78 9). 

y := x removeAll: #(7 8 9). 

y := x remove: 4 ifAbsent: []. 

b := x isEmpty. 

y :7 X Size. 

b := x includes: 3. 

y := X occurrencesOf: 3. 

x do: [:a | Transcript show: a printString; 

b := x conform: [:a | (a >= 1) & (a <= 4)]. 

y := x select: [:a | a > 2]. 

y := x reject: [:a | a < 2]. 

y := x collect: [:a | a + a]. 

y := x detect: [:a | a > 3] ifNone: []. 

sum := 0. x do: [:a | sum := sum + a]. sum. 

sum := x inject: 0 into: [:a :c | a + c]. 

max := x inject: 0 into: [:a :c | (a > c) 
ifTrue: [a] 


ifFalse: [c]]. 


—UX 


x 
= X 
x 


asOrderedCollection. 
asSortedCollection. 
asBag. 

asSet. 


er]. 


"create collection with up to 4 elements" 
"allocate collection" 

"add element to collection" 

"add multiple copies to collection" 

"add multiple elements to collection" 
"remove multiple elements from collection" 
"remove element from collection" 

"test if empty" 


"number of 


elements" 


"test if element is in collection" 


"number of 


times object in collection" 


"iterate over the collection" 

"test if all elements meet condition" 

"return collection of elements that pass test" 
"return collection of elements that fail test" 


"transform 


each element for new collection" 


"find position of first element that passes test" 
"sum elements" 

"sum elements" 

"find max element in collection" 


"convert to ordered collection" 
"convert to sorted collection" 
"convert to bag collection" 
"convert to set collection" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Set: 


* IdentitySet: uses identity test (== rather than =) 


like Bag except duplicates not allowed 


* 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAY 


bx y sum max | 


| 
x := Set with: 4 with: 3 with: 2 with: 1. 
x := Set new. 
x add: 4; add: 3; add: 1; add: 2; yourself. 
y := x addAll: #(7 8 9). 
y := x removeAll: #(7 8 9). 
y := x remove: 4 ifAbsent: []. 
b := x isEmpty. 
y :7 x Size. 
x includes: 4. 
x do: [:a | Transcript show: a printString; 
b := x conform: [:a | (a >= 1) & (a <= 4)]. 
y := x select: [:a | a > 2]. 
y := x reject: [:a | a < 2]. 
y := x collect: [:a | a + a]. 
y := x detect: [:a | a > 3] ifNone: []. 
sum := 0. x do: [:a | sum := sum + a]. sum. 
sum := x inject: 0 into: [ra :c | a + c]. 
max := x inject: 0 into: [:a :c | (a > c) 
ifTrue: [a] 
ifFalse: [c]]. 
y := X asArray. 
y := x asOrderedCollection. 
y := x asSortedCollection. 
y := X asBag. 
y := X asSet. 
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eel. 


"create collection with up to 4 elements" 
"allocate collection" 

"add element to collection" 

"add multiple elements to collection" 
"remove multiple elements from collection" 
"remove element from collection" 

"test if empty" 


"number of 


elements" 


"test if element is in collection" 
"iterate over the collection" 
"test if all elements meet condition" 


"return col 
"return col 
"transform 


llection of elements that pass test" 
llection of elements that fail test" 
each element for new collection" 


"find position of first element that passes test" 
"sum elements" 

"sum elements" 

"find max element in collection" 


"convert to array" 

"convert to ordered collection" 
"convert to sorted collection" 
"convert to bag collection" 
"convert to set collection" 
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WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Interval: 


* 


Ck Ck kk kk Sk kk S I S S I S SI I I I S Sk kk S kk kk Sk S kk S S kk kk S S kk kk kk kk kk xk AM 


bx y sum max | 
Interval from: 5 to: 
5 to: LO. 

Interval from: 5 to: 
5 

x 


10. 


10. bys 2: 


tor. 10: Dye: 2: 
isEmpty. 
x size. 
includes: 9. 
do: [:k | Transcript show: 
conform: | (a >= 1) & 
select: [ fae: Soe E UA 
reject: [ are 2 
collect: 
detect: [ 


k printString; 
(a <= 4)]. 


eus 


ll 
lox xx xX xX 


ifNone: []. 
= sum + a]. sum. 
: [sa | sum := sum + 
à ic | awe]. 
a :c | (a > c) 


0XKKKOXXKOXX KX KX — 


& 
zi 


[:a 
ca 
ra 
[:a 
:a 
1 [:a | sum 
sum := 0. (x size) d (x at: 
:- x inject: [ 
max := x inject: [ 
ifTrue: [a] 
ifFalse: [c]]. 
asArray. 
asOrderedCollection. 
asSortedCollection. 
asBag. 


asSet. 


0 cimntoz 


] 
a 
|, ae 34 
o 
D intor la 


= X 


KKKKK 
ll 
Xx Xx Xx ox 


"create interval object" 
"create interval object with specified increment" 


"test if empty" 

"number of elements" 

"test if element is in collection" 

"iterate over interval" 

"test if all elements meet condition" 

"return collection of elements that pass test" 
"return collection of elements that fail test" 
"transform each element for new collection" 
"find position of first element that passes test" 
"sum elements" 

"sum elements" 

"sum elements" 

"find max element in collection" 


ad]. 


"convert to 
"convert to 
"convert to 
"convert to 
"convert to 


array" 

ordered collection" 
sorted collection" 
bag collection" 

set collection" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Associations: 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAY 


x y | 
:= #myVar->'hello'. 
:= x key. 


| 
x 
y 
y := x value. 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Dictionary: 


* IdentityDictionary: uses identity test 


* 


(== rather than =) hd 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAY 


| bxy | 
x := Dictionary new. "allocate collection" 
x add: #a->4; add: #b->3; add: #c->1; add: #d->2; yourself. "add element to collection" 
x at: #e put: 3. "set element at index" 
b := x isEmpty. "test if empty" 
y :7 x Size. "number of elements" 
y := x at: fa ifAbsent: []. "retrieve element at index" 
y := x keyAtValue: 3 ifAbsent: []. "retrieve key for given value with error block" 
y := x removeKey: te ifAbsent: []. "remove element from collection" 
b := x includes: 3. "test if element is in values collection" 
b := x includesKey: ta. "test if element is in keys collection" 
y := x occurrencesOf: 3. "number of times object in collection" 
y := x keys. "set of keys" 
y :7 x values. "bag of values" 
x do: [:a | Transcript show: a printString; cr]. "iterate over the values collection" 
x keysDo: [:a | Transcript show: a printString; cr]. "iterate over the keys collection" 
x associationsDo: [:a | Transcript show: a printString; cr]."iterate over the associations" 
x keysAndValuesDo: [:aKey :aValue | Transcript "iterate over keys and values" 
show: aKey printString; space; 
show: aValue printString; cr]. 
b := x conform: [:a | (a >= 1) & (a <= 4)]. "test if all elements meet condition" 
y := x select: [:a | a > 2]. "return collection of elements that pass test" 
y := x reject: [:a | a < 2]. "return collection of elements that fail test" 
y := x collect: [:a | a * a]. "transform each element for new collection" 
y := x detect: [:a | a > 3] ifNone: []. "find position of first element that passes test" 
sum := 0. x do: [:a | sum := sum + a]. sum. "sum elements" 
sum := x inject: 0 into: [:a :c | a + c]. "sum elements" 
max := x inject: 0 into: [:a :c | (a > c) "find max element in collection" 
ifTrue: [a] 
ifFalse: [cl]. 
y := X asArray. "convert to array" 
y := x asOrderedCollection. "convert to ordered collection" 
y := x asSortedCollection. "convert to sorted collection" 
y := x asBag. "convert to bag collection" 
y := x asSet. "convert to set collection" 
Smalltalk at: #CMRGlobal put: 'CMR entry'. "put global in Smalltalk Dictionary" 


x := Smalltalk at: #CMRGlobal. 
Transcript show: (CMRGlobal printString). 
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"read global from Smalltalk Dictionary" 
"entries are directly accessible by name" 
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Smalltalk keys 
((Smalltalk 
ifFalse: 
Smalltalk at: 
CMRDictionary 
CMRDictionary 
CMRDictionary 
CMRDictionary 
Transcript 
CMRDictionary 
Transcript 
CMRDictionary 
Transcript 
Show: aK 
space; 
show: aV. 
purs 
CMRDictionary 
Transcript 


do: [ :k | 
at: k) 


isKindOf: Class) 


[Transcript show: k printString; 


CMRDictionary put: 
at: #MyVarl put: 
add: #MyVar2->'hello2'. 
size. 


keys do: [ :k | 

show: k printString; cr]. 
values do: [ :k | 

show: k printString; cr]. 
keysAndValuesDo: [:aKey :aValue 
ey printString; 

alue printString; 
associationsDo: [:aKeyValue | 


show: aKeyValue printString; 


Smalltalk removeKey: #CMRGlobal ifAbsent: []. 
Smalltalk removeKey: #CMRDictionary ifAbsent: 


er 


er. 


(Dictionary new). 
"hellol'. 


(1. 
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" 


" 


" 


" 


"print out keys and values" 


print out all classes" 


dictionary size" 


set up user defined dictionary" 
put entry in dictionary" 
"add entry to dictionary use key-»value 


print out keys in dictionary" 


print out values in dictionary" 


combo" 


"another iterator for printing key values" 


"remove entry from Smalltalk dictionary" 
"remove user dictionary from Smalltalk dictionary" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Internal St 


ream: 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAY 


[Bo es - | 
ios := ReadStr 
ios := ReadStr 
[(x := ios nex 
whileTrue: 
ios position: 
ios position. 


X := los next. 
X := ios peek. 
x := ios conte 
b := ios atEnd 
ios := ReadWri 
ios := ReadWri 
ios := ReadWri 
ios := ReadWri 
ios position: 


[(x := ios nex 
whileTrue: 
ios position: 
ios position. 
ios nextPutAll 


X := ios next. 
X := ios peek. 
X := ios conte 
b := ios atEnd 


eam on: 
eam on: 
tLine) notNil] 


'Hello read stream'. 
'Hello read stream' 


[Transcript show: x; cr]. 


3. 


nts. 


teStream on: 
teStream on: 
teStream with: 
teStream with: 
0. 

tLine) notNil] 


[Transcript show: x; cr]. 


6. 


s "Chris: 


nts. 


from: 


'Hello read stream'. 
'Hello read stream' 
'Hello read stream'. 
'Hello read stream' from: 


LEO: 


De 


From: 1. Eo:.: 5s 


1 to: 


10. 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* FileStream: 


* 


Ck Ck kk kk Sk Sk Sk S I S I I I S I I S S I S S Sk Sk kk kk kk kk kk S kk S kk kk S S S S kk kk kk kk kx kx KU 


| b x ios | 

ios := FileStr 
ios nextPut: $ 
ios nextPutAll 
'Hello File' p 
"Hello File! s 
ios close. 


ios := FileStr 
[(x := ios nex 
whileTrue: 
ios position: 
x := ios posit 
x := ios next. 
X := ios peek. 
b := ios atEnd 


ios close. 


eam newFileNamed: 
Hy cr 

: 'Hello File'; cr. 
rintOn: ios. 
toreOn: ios. 


eam oldFileNamed: 
tLine) notNil] 


“Los. txt”. 


TAOS EXE > 


[Transcript show: x; cr]. 


3% 
ion. 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Date: 


* 


Ck Ck Ck kk kk kk S S I S I kk S S Sk S S kk Sk Sk kk I S kk S kk Sk S kk Sk S kk kx kk kk x 0X 


:= Date read 
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= Date newDay: 


:= Date today. 
= Date dateAndTimeNow. 


FromString: 


'01/02/1999'. 
12 month: #July year: 1999 


"create date for today" 


"create 
"create 
"create 


date 
date 
date 


from current time/date" 
from formatted string" 
from parts" 


9/12 


3/23/22, 10:56 PM 


ORKKKKKKKKKKKKKKKKKKKKKK OK 


= Date fromDays: 36000. 
= Date dayOfWeek: #Monday. 
= Date indexOfMonth: #January. 


= Date daysInYear: 1996. 
= Date nameOfDay: 1 
= Date nameOfMonth: 1. 
= Date leapYear: 1996. 
x weekday. 
x previous: #Monday. 
x dayOfMonth. 
x day. 
x firstDayOfMonth. 
x monthName. 
x monthIndex. 
x daysInMonth. 
= x year. 
x daysInYear. 
x daysLeftInYear. 
x asSeconds. 
x addDays: 10. 
x subtractDays: 10. 
x subtractDate: (Date today). 
x printFormat: #(2 13 $/ 11). 
(x <= Date today). 


= Date daysInMonth: 2 forYear: 1996. 
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"create date from elapsed days since 
"day of week as int (1-7)" 

"month of year as int (1-12)" 

"day of month as int (1-31)" 

"days in year (365|366)" 

"weekday name (#Monday,...)" 

"month name (#January,...)" 

"1 if leap year; 0 if not leap year" 
"day of week (#Monday,...)" 

ate for previous day of week" 

ay of month (1-31)" 

ay of year (1-366)" 

ay of year for first day of month" 
"month of year (#January,...)" 
"month of year (1-12)" 

"days in month (1-31)" 

year (19xx)" 

"days in year (365|366)" 

"days left in year (364|365)" 
"seconds elapsed since 1/1/1901" 
"add days to date object" 

"subtract days to date object" 
"subtract date (result in days)" 
"print formatted date" 

"comparison" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* 


Time: 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAY 


XEKKKKKKKKXxX»x KM — 


b 


= Time now. 
= Time dateAndTimeNow. 


= Time fromSeconds: (60 * 60 * 4). 
= Time millisecondClockValue. 

= Time totalSeconds. 

seconds. 

minutes. 

hours. 

addTime: (Time now). 
subtractTime: (Time now). 
asSeconds. 

Time millisecondsToRun: [ 


(x <= Time now). 


= Time readFromString: '3:47:26 pm'. 


1 to: 1000 do: [:index | y := 3.14 * index]]. 


"create time from current time" 
"create time from current time/date" 
"create time from formatted string" 


1/1/1901" 


"create time from elapsed time from midnight" 


"milliseconds since midnight" 
"total seconds since 1/1/1901" 
"seconds past minute (0-59)" 
"minutes past hour (0-59)" 
"hours past midnight (0-23)" 
"add time to time object" 
"subtract time to time object" 
"convert time to seconds" 
"timing facility" 


"comparison" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* 


Point: 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAY 


E 


x y | 

= 200@100. 
= X X. 
= X y. 
= 2000100 negated. 

= (-200@-100) abs. 

= (200.5@100.5) rounded. 

= (200.5@100.5) truncated. 
= 200@100 + 100. 

= 200@100 - 100. 

= 200@100 * 2. 

= 200@100 / 2. 

= 200@100 // 2. 

= 200@100 \\ 3. 

= 200@100 + 50@25. 

= 200@100 - 50@25. 

= 200@100 * 3@4. 

= 200@100 // 3@4. 

= 200@100 max: 50@200. 

= 200@100 min: 50@200. 

= 20@5 dotProduct: 10@2. 


"obtain a new point" 

"x coordinate" 

"y coordinate" 

"negates x and y" 

"absolute value of x and y" 
"round x and y" 

"truncate x and y" 

"add scale to both x and y" 
"subtract scale from both x and y" 
"multiply x and y by scale" 
"divide x and y by scale" 
"divide x and y by scale" 
"remainder of x and y by scale" 
"add points" 

"subtract points" 

"multiply points" 

"divide points" 

"max x and y" 

"min x and y" 

"sum of product (x1*x2 + yl*y2)" 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKK 


* 


Rectangle: 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAY 


Re 


ctangle fromUser. 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* 


Pen: 


* 


Ck Ck Ck kk kk kk S I I I S I S Ik kk kk kk kk kk kk Sk kk kk S kk kk kk kk x AM 


l 
Di 
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myPen | 
splay restoreAfter: [ 
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3/23/22, 10:56 PM 
Display fillWhite. 
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myPen := Pen new. 
myPen squareNib: 1. 
myPen color: (Color blue). "set pen color" 

myPen home. "position pen at center of display" 
myPen up. "makes nib unable to draw" 

myPen down. "enable the nib to draw" 

myPen north. "points direction towards top" 

myPen turn: -180. "add specified degrees to direction" 
myPen direction. "get current angle of pen" 

myPen go: 50. "move pen specified number of pixels" 
myPen location. "get the pen position" 

myPen goto: 2000200. "move to specified point" 

myPen place: 2508250. 
myPen print: 'Hello World' withFont: (TextStyle default fontAt: 1). 

Display extent. "get display widthGheight" 
Display width. "get display width" 
Display height. "get display height" 


"get graphic pen" 


l. 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* Dynamic Message Calling/Compiling: A 
ck ck kc Sk ck kk ck Sk ck Sk ck kk ck ck ck kk ck ck ck ck ck Sk ck kk ck ck ck Sk ck kk ck ck ck ck Sk ck ck ck ck ck ck kk KK ck kk kk ko Sk ko Sk Sk Mk ko ko k ko ko k M 
| receiver message result argument keywordl keyword2 argumentl argument2 | 
"unary message" 


receiver := 5. 

message := 'factorial' asSymbol. 

result := receiver perform: message. 

result := Compiler evaluate: ((receiver storeString), ' ', message). 

result := (Message new setSelector: message arguments: #()) sentTo: receiver. 


"binary message" 


receiver := 1. 

message := '+' asSymbol. 

argument := 2. 

result := receiver perform: message withArguments: (Array with: argument). 

result := Compiler evaluate: ((receiver storeString), ' ', message, ' (argument storeString)). 
result := (Message new setSelector: message arguments: (Array with: argument)) sentTo: receiver. 


"keyword messages" 


receiver :- 12. 

keywordl := 'between:' asSymbol. 
keyword2 := 'and:' asSymbol. 
argumentl :- 10. 

argument2 :- 20. 

result := receiver 


perform: (keywordl, keyword2) asSymbol 
withArguments: (Array with: argumentl with: argument2). 


result := Compiler evaluate: 

((receiver storeString), ' ', keywordl, (argumentl storeString) , ' ', keyword2, (argument2 storeString)). 
result := (Message 

new 


setSelector: (keywordl, keyword2) asSymbol 
arguments: (Array with: argumentl with: argument2)) 
sentTo: receiver. 


WKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKK 


"move to specified point without drawing" 


* class/meta-class: * 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKAY 
| bx | 
x := String name. "class name" 
x := String category. "organization category" 
x := String comment. "class comment" 
x := String kindOfSubclass. "subclass type - subclass: variableSubclass, 
x := String definition. "class definition" 
x := String instVarNames. "immediate instance variable names" 
x := String allInstVarNames. "accumulated instance variable names" 
x := String classVarNames. "immediate class variable names" 
x := String allClassVarNames. "accumulated class variable names" 
x := String sharedPools. "immediate dictionaries used as shared pools" 
x := String allSharedPools. "accumulated dictionaries used as shared pools" 
x := String selectors. "message selectors for class" 
x := String sourceCodeAt: #size. "source code for specified method" 
x := String allInstances. "collection of all instances of class" 
x := String superclass. "immediate superclass" 
x := String allSuperclasses. "accumulated superclasses" 
x := String withAllSuperclasses. "receiver class and accumulated superclasses" 
x := String subclasses. "immediate subclasses" 
x := String allSubclasses. "accumulated subclasses" 
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x := String withAllSubclasses. "receiver class and accumulated subclasses" 

b := String instSize. "number of named instance variables" 

b := String isFixed. "true if no indexed instance variables" 

b := String isVariable. "true if has indexed instance variables" 

b := String isPointers. "true if index instance vars contain objects" 

b := String isBits. "true if index instance vars contain bytes/words" 
b := String isBytes. "true if index instance vars contain bytes" 

b := String isWords. true if index instance vars contain words" 

Object withAllSubclasses size. "get total number of class entries" 


VPN CC kk x x M M kk kk kk Mk KKK KKK KKK KKK KKK k kx k KKK k kx kx kx kx kx kx kx kx kx kx kx kx kx kx kx kx kx kx kk kx kx kx kx kx kx kx kx kx 


* debuging: il 
KAKKAKKAKKKKKKKKKKKKKKKKKKKAKKKKKKKKKAKKKKKKKKKKKKKKAKKKKKKKKKKKKKKKKAKKkKkkkx0" 

| & b x. 

x yourself. "returns receiver" 

String browse. "browse specified class" 

x inspect. "open object inspector window" 

x confirm: 'Is this correct?'. 

x halt. "breakpoint to open debugger window" 

x halt: 'Halt message'. 

x notify: 'Notify text’. 

x error: 'Error string'. "open up error window with title" 

x doesNotUnderstand: #cmrMessage. "flag message is not handled" 

x shouldNotImplement. "flag message should not be implemented" 

x subclassResponsibility. "flag message as abstract" 

x errorImproperStore. "flag an improper store into indexable object" 

x errorNonIntegerIndex. "flag only integers should be used as index" 

x errorSubscriptBounds. "flag subscript out of bounds" 

x primitiveFailed. "system primitive failed" 

a := 'Al'. b := 'B2'. a become: b. "switch two objects" 


Transcript show: a, b; cr. 


WIXAKKAKKKKKKKKKKKKKKKKKAKKKKKKKKKKKKKKAKKKKKKKKKKKKAKKKKKKKKKKKKKKKKAKKKKkKkkx 

* Misc. m 

ck ck kc Sk ck kk kk kk kk kk Sk ck kk kk kk ck kk ck ck ck Sk ck kk KK kk ck kk kk ccc KK kk oko kk kk kk ko ko ko ko ko AAA k M 

| x | 

"Smalltalk condenseChanges." "compress the change file" 
x :- FillInTheBlank request: 'Prompt Me'. "prompt user for input" 
Utilities openCommandKeyHelp 


Chris Rathman / ChrisRath@aol.com 
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